home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / GamesLib < prev    next >
Encoding:
Text File  |  1985-06-20  |  302 b   |  22 lines  |  [TEXT/TRUE]
  1. EXTERNAL
  2.  
  3. SUB Rolldice (sum_dice, num_dice)
  4.  
  5.     LET sum_dice = 0
  6.     FOR i = 1 to num_dice
  7.         LET roll = Int(6*Rnd + 1)
  8.         LET sum_dice = sum_dice + roll
  9.     NEXT i
  10.  
  11. END SUB
  12.  
  13. DEF Coin$ 
  14.  
  15.     IF Rnd < .5 then
  16.        LET Coin$ = "heads"
  17.     ELSE
  18.        LET Coin$ = "tails"
  19.     END IF
  20.  
  21. END DEF
  22.